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MEMORY MANAGEMENT SERVICES TEST #6 


-TITLE MMGLKWULW = TEST OF SLKWSET/SULWSET SYSTEM SERVICES 
- IDENT Hie 800° 


COPYRIGHT (c) 1978, 1980 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 


ALL RIGHTS RESERVED. 


® ca 
‘ 1982, 1984 8 ‘ 
ae ® 
® ue 
® ® 
« THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
: INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
© OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE 1S° HEREBY = 
* TRANSFERRED. * 
® ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. * 
ww * 
Ww x 
a ® 
© & 
Ww ® 
:* * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


OOOO OCoCoOOooOoooooooo 


SooOoooeco 


LRA RRRSRARARARAAEARAAAASA RELEASES ELAS AREA EERE EERE RRR R REE R ERASE SESE RRS SE GS 


i FACILITY: USER MODE MEMORY MANAGEMENT SERVICES TEST 

; ABSTRACT: THIS SET OF ROUTINES TESTS THE MEMORY MANAGEMENT SERVICES 
; ENVIRONMENT: USER MODE DIAGNOSTIC 

: AUTHOR: PETER H. LIPMAN , CREATION DATE: 6-JAN-77 


Ooooooooooco 
SOOOSCOCSCOSOOSOSSOSOOOOOOOOSOSSSOSOSOSOSOSOOSOSOSOSOSOOOOSOOOOOSOOOSOOOO 


; MODIFIED BY: 


v02-012 SUZ0003 Stephen Zalewski 20-Aug-1980 
Added further tests to eyeten services tested in this 
program. Also incorporated program into MMG test 


package. 


v02-012 1SC0005 Thomas Clark 25-Jul-1980 
Added further tests to system services tested in this 
“oes hy 


COOOCOCoCOCOCOOCOoOoOoOoOoSoooooSo 
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yoe-000 DECEARAT IONS Breer obe Oi isaiss EAMG eE. eae iameCcucw.mars? 2% (3) 
: ; .SBTTL DECLARATIONS 
4 i INCLUDE FILES: 
3 .SBTTL MACROS 
8 ; MACROS: 
60 ° «MACRO LIST 
61 “LIST MEB 
6¢ “ENDM = LIST 
6 .MACRO NLIST 
0 5 "NLIST MEB 
0 66 “ENDM = NLIST 
00 68 «MACRO CRETVA STARTVA,ENDVA, STATUS=S“#SS$_NORMAL,- 
3 4 Laat INADR=W* INRANGE , RE TADR=W*RETRANGE 
009 4 IF NB, STARTVA 
09 ie ROVE STARTVA, W* INRANGE 
$00 74 “IF NB, ENDVA 
9000 3 HOVE ENDVA,W* INRANGE +4 
9000 ig MOVZWL STATUS,R3 
000 28 MOVAL  INADR,RO 
9000 7 MOVAL RETADR,R1 
000 80 BSBW CRETVASUBR 
900 1 NLIST 
000 Be .ENDM = CRETVA 
900 bs «MACRO DELTVA STARTVA, ENDVA, STATUS=S“#SS$_NORMAL,- 
00 5 INADR=W* INRANGE , RETADR=W*RETRANGE 
999 86 LIST 
00 IF NB, STARTVA 
00 88 MOVL STARTVA,W* INRANGE 
00 9 -ENDC 
000 90 “IF NB, ENDVA 
900 31 MOVE ENDVA,W* INRANGE +4 
09 98 MOVZWL STATUS,R3 
0 94 MOVAL  INADR,RO 
09 95 MOVAL RETADR,R1 
36 Sil BSBW DELTVASUBR 
8 98 .ENDM = DELTVA 
5 100 .MACRO EXPREG PAGCNT,REGION=#0,STATUS=S“#SS$_NORMAL ,- 
101 RE TADR=W*RETRANGE 
1 : LIST 
1 MOVZWL STATUS,R3 
104 MOVL PAGCNT.<R4 
105 MOVAL RETADR.R1 
1 6 IF DN, <REGION> , <#0> 
1 cLRL OR 
108 cIFF 
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MOVL REGION,RS5 
-ENDC 
BSBW EXPREGSUBR 
NLIST 
-ENDM EXPREG 


«MACRO LKWSET STARTVA eNe 
INADR= 


of yAwee ng #SS$_WASCLR,- 
LIST 


TUS=S* 
RE TADR=W*RETRANGE 


NB, START 
STARTVA. Ws INRANGE 


NB, ENDVA 
ENDVA, W* INRANGE +4 


C 
MOVZ2WL STATUS,R3 
MOVAL INADR,RO 
MOVAL RETADR,R1 
BSBW  LKWSETSUBR 


LKWSET 


«MACRO ULWSET STARTVA,ENDVA,STATUS=S“#SS$_WASSET,=- 
LIST INADR=W* INRANGE , RETADR=W*RETRANGE - 


IF NB, STARTVA 
MOVL STARTVA,W* INRANGE 


OOOCCoCoooooooooooo 


COOOCOCOCOCOOOCSOOSOSOSCOSOSOSOOSOSOSOSOSOOSOSOOSOOOOOOOOOOO 


NLIST 
~ENDM 


COOCCCCOCOCOCOCOOOOCOOOOOOOOOOOOoOO 


SoOoQooooocooooooooooooooooooooooooooooooooooooooooooooooooooa 


MOVL PE SEA US INRANGE +4 


.ENDC 

MOVZWL STATUS,R3 
INADR,RO 

MOVAL RETADR,R1 
BSBW  ULWSETSUBR 

NLIST 


~-ENDM = ULWSET 


ISIS I ITI Tritt iri ri rit iiritiiiititiititiiiiiiiiiiitiiiititiiiiiiy) 
THIS MACRO USED TO CREATE PERMANENT GLOBAL SECTIONS. THE FILE NAME 
AND GBL SECTION DEVICE NAME ARE DECLARED INDEPENDANTLY OF THIS MACRO 
” ere PUSHED ONTO THE STACK MANUALY BEFORE THE SCRMPSC SERVICE IS 


HE BOTTOM OF THE MACRO. T 
ION MAY NOT HAVE BEEN DELE 
ATED. IN THIS CASE THE 

IS R IL THE 

TED TO BE FIXED. WHEN 


OOOoCoooooooooooooooooocoo 


SOOoOooooooooooooo 
SOOoOooooooooooooooo 


—O mmo 
mow mo 


L 
iauneesasecssensesseuneecscneeeaueanecuueanenneneseasensgaeanansesenggnesggess 


- MACRO cpenerees ° 


ENDVA 
STATUS=S*#SS$_ NORMAL ,- 
INADR=<W* INRANGE>, - s INPUT RANGE 


ee ek a a tk tk a a a tb ts as ss bs a ss as — sk as a a st ss a is as se ss ss 
DDD DPD Perr Be BS EE NANA WII AI II NOPUNININPINININ 2 2 POO Ot OO 


MEAN O ODNA NE WIN OOO NAME WIN SO OOO NAME WN OS OD NAULS WN 0 OONOAOUS W000 
a 
m 
z 
_—J 
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SOOOooOooooooooooooooDaOooooooooooo 
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yOero0d MACROS g- Hatt? 8F ir % YRMGTST.§ SRCIMMGLKWULW. MAR; 1 ° (2) 
166 RETADR=<W*RETRANGE> ,~ : RETURN RANGE 
16 FLAGS=# sSECTION FLAGS 
168 GSDNA N=<W*GBLSECHAM>, - ;GLOBAL SECTION NAME 
1 RELPAG=# SRELATIVE PAGE 
170 FILNAM=<W*F ILENAMED, ~ sFILE NAME 
171 PAGCNT=#0 7MAX SIZE OF SECTION 
1% yBN=#0 ‘- SSTARTING WIRT BLK NO. IN FILE 
99 174 LIST 
6 175 IF NB, STARTVA 
0 126 OVE STARTVA, W* INRANGE 
09 178 vIF NB, ENDVA 
00 17 MOVL  ENDVA, W“ INRANGE +4 
00 180 ~ENDC 
909 181 MOVZWL STATUS,R3 
00 13g bt 
4 \3 PUSHL VBN 
000 184 PUSHL _PAGCNT 
0000 185 SPUSHADR FILNAM 
$09 186 PUSHL RELPAG 
000 187 SPUSHADR GSDNAM 
0000 §=188 PUSHL FLAGS 
0000 189 SPUSHADR RETADR 
0000 190 SPUSHADR INADR 
6009 191 CALLS #8,LIBS_CREMAPSEC 
000 136 3 pteeeene 
0000 193 ;IN ORDER TO DELTE THE PATCH MENTIONED ABOVE SIMPLY REMOVE THE LINES FROM 
9009 194 SHERE TO THE NEXT SET OF ASTERICS. 
0000 196 CMPL #*X1828A,R0 iF PREVIOUS GBL SEC TION HASN'T 
0000 197 BEQL sia :BEEN DELETED T RYE REMAPSEC AGAIN. 
0000 198 peeeeeee 
0000 199 MOVAL W*CRMPSCERR,R1 
0000 200 BSBW CHECK1 
0000 01 NLIST 
0000 0¢ .ENDM CREMAPSEC 
000 0 
000 204 .MACRO RANGECHK ONOROFF 
i 205 LIST 
000 v6 IF IDN <ONOROFF>, <OFF> 
0000 20 BICL #CTLSM_RNGCHK,W*CTLFLG 
0000 08 o1FF 
9000 09 BISL § #CTLSM_RNGCHK,W*CTLFLG 
10 .ENDC 
444 11 NLIST 
0000 212 .ENDM = RANGECHK 
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; EQUATED SYMBOLS: 


SSSDEF 

SSECDEF 

SPRIDEF 

$GBLINI 

SVIELD CTL,0,<- :DEF INE CONTROL BITS IN R3 
<MEMLOOP, ,MASK>,= P IN MEMORY WRITE LOOP 
<TSTLOOP, -MASK>,= REDO ENTIRE TEST FROM TOP 
<PIDMSG, ,MASK>,= PUT PROCESS ID IN EACH TYPEOUT 
<RNGCHK , -MASK>= ‘ON IF CHECKING RETURN RANGE 


> 
PRT$C_NONE=184 
; OWN STORAGE : 


00000010 


OOWONA UE WN "OOOO 


WRoNonofonononononond 3 


Sooooooooo 
Sooooo 


oooo°eoo 


ooooooo 
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- TEST OF $ muse ayy eet 
DATA STORAGE AND MESSAG 


SYS 
STRI 
-SBTT 
000 : SECT 
4 INRANGE: 
00000008 5 ~BLKL 
§ RETRANGE: 
10 LKL 
0 CTLFLG: .LONG 
1 1 SAVEND: .BLKL 
1¢ 18 40 PID: »BLKL 
1¢ 41 MAXPASSCNT: 
00000003 1 tg . LONG 
3 45 PASSCNT: 
00000024 44 ~BLKL 
; 4 45 PREVPROT: 
4 *$ FAB: SFAB 
074 47 RAB: $e ag 
popgter 0B8 8 MSGLEN: .BLKL 
OOOD00DA'OO0000A0" O0BC 49 MSGBUFD: .LONG 
0C4 29 PIDMSGD 
00000006°00000004° 00C4 1 . 
OCC 26 ; 
Occ o> 8 
Occ 54 
OCC 255 MSGBUFID: 
94 98 cc 2$ CRLF: BYTE 
20 53 53 45 43 4F ‘ 0 cE 5 ASCII 
20 20 $0 0D6 58 PIDMSG: .ASCII 
17A nA 59 MSGBU 
QOOO0000A0 O17A 60 
17A 61 ; 
gira 6¢ 3 
17A 65 ; 
017A 64 


-BLKB 160 
MSGBUF SIZ=.-MSGBUF 
weeee DO NOT SEPARATE OR REORDER THE PRECEEDING LINES 


gy Fetace sgeezsige S858 ACY SeeStncB a P 
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DATA STORAGE AND MESSAGE STRINGS 

DATAO, PAGE ,WRT , NOEXE 

2 

é 

FTLSM_TSTLOOP!CTLSM_PIDMSG 

1 :PROCESS ID 

3 ;NUMBER OF PASSES TO RUN 
1 ;PASS COUNTER 


FAC=PUT, FNASOUTNAMADR, FNS=OUTNAMSIZ ;FAB FOR OUTPUT 
;RECORD ACCESS BLOCK FOR OUTPUT 


F AB=F AB sREC 

1 RETURN LENGTH FR 

MSGBUF S1Z ,MSGBUF MESSAGE BUFFER DESCRIPTOR 
MSGBUF -PIDMSG,,PIDMSG 


; s#eee DO NOT SEPARATE OR REORDER THE FOLLOWING LINES 


*015,*012 
SPROCESS $ 
ee 
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AND MESSAGE STRINGS $23Ep= 1382 87:96:98 MMGTST.SRCJMMGLKWULW.MAR; 1 
-PSECT CODE ,PAGE ,NOWRT EXE 
| OUTNAMADR : 
-ASCII /SYSSOUTPUT/ 
OUTNAMS1Z=.-OUTNAMADR 


7? 
1 CRETVAERRADR : 
7 ASCII 


274 eASCII $!/ INADR = !XL = !XL, 
fe CRETVAERRSIZ=.-CRETVAERRADR 

rS DELTVAERRADR: 

78 ASCII $!/DELTVA ERROR = PC = !XL, 


279 «ASCII 


$!/CRETVA ERROR = PC = !XL, 


$!/ 


INADR = !XL = !XL, 


DELTVAERRSIZ=.-DELTVAERRADR 


H 
8 CRMPSCERRADR: 
8 


-ASCII $!/CRMPSC ERROR = PC = !XL, 


284 eASCII $!/ INADR = !XL = !XL, 
85 CRMPSCERRSIZ=.-CRMPSCERRADR 
5? LKWSETERRADR: 

8 sASCIIL $S!/LKWSET ERROR = PC = !XL, 


289 -ASCII 


$!/ 


INADR = !XL = !XL, 


LKWSETERRSIZ=.-LKWSETERRADR 


41 
35 ULWSETERRADR: 
9 ASCII 


$!/ULWSET ERROR - PC 


'XL, 


STATUS 


RETADR 


STATUS 
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STATUS 
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RETADR 


STATUS 
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WAS !XL, SHOULD BE 
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WAS !XL, SHOULD BE 
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moe - TEST OF $ 
DATA STORAG 


MGS CASHES Pe SEH ARETE CN 


: 


WNAULSWN OO OONOues 


ASCII. $i $ 
RUN2_MSGSIZ=.-RUN2_MSGADR 
RUN3_MSGADR: 


eASCIL $!/ eeeee = §=TEST WILL NOW BE RUN USING PFN MAPPING 


ASCII. $i $ 
RUNS_MSGSiZ=.-RUN3_MSGADR 


PIDCTLADR: 
ASCII $!UL$ 
PIDCTLSIZ=.-PIDCTLADR 
GBLSECNAMADR: 
ASCII SMMGTSTS 
GBLSECNAMS1Z=.-GBLSECNAMADR 
F ILENAMEADR : 


-ASCII SMMGTST.DATS 
FILENAMESIZ=.-F ILENAMEADR 


o V04-00 Page 2 
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et DATA’ STORAGE AND MESSAGE STRIN en Service "Pr SEpa19be 07:58:15 EMMGTST ene dameceuucw.mar;1 2° (2, 

cB i | STRING DESCRIPTORS 

cB i LALIGN LONG 
0000000a' 00000063 ce é ae G  CRETVAERRSIZ,CRETVAERRADR 
0000006D * 00000063 +, +8 CRMPSCER: NG DELTVAERRSIZ,DELTVAERRADR 
00000000"00000063 O30 ; exoecenis® CRMPSCERRSIZ,CRMPSCERRADR 
0v0001F9" 00000072 | OSE4 je if useren® EXPREGERRSIZ,CXPREGERRADR 
00000133"00000063  3E¢ 34 “2 wserenit® ONG  LKWSETERRSIZ,LKWSETERRADR 
00000196"00000063 O54 $36 ULWSETERRSIZ,ULWSETERRADR 
00000268" 0000004 OSFE $58 LONG RANGERRSIZ RANGERRADR 
000002Ba' 00000039 i 60 ut msgiiONs  1OMSGSIZ,IDMSGADR 
000002F3*00000043 940¢ 6g LONG © RUNT_MSGSIZ RUN _MSGADR 
00000336"00000064 0414 364 ~ .LONG  RUN2_MSGS1Z,RUN2_MSGADR 
0000037A'0000003E bei t 8 amine RUN3_MSGS1Z,RUN3_MSGADR 
00000388" 00000003 Oe 4 3 ve PIDCTLSIZ.PIDCTLADR 
00000388"00000006 942¢ 370 LONG GBL SECNAMSIZ, GBL SECNAMADR 
000003¢1"0000000A 9484 37 ‘LONG — FILENAMESIZ,FILENAMEADR 


Sz 
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MAGLKWULW ~ TEST OF SLKWSET/SULWSET SYSTEM SERVICE 16-SEP-1984 02:04:02 YAX/VMS 4- 
v04 INITIALIZATION SSEb=198¢ 01:58:13 EAMGrST.SRCSAMCLKUULW.MaR:1 Ae | 


~SBTTL INITIALIZATION 


FRAAAAHK AHA AH RHE RETAKE AAAAAAAAARAAAEARAHAEARKeReAKeKeeeeeKeeeeeeereeeTeres 


;PROGRAM DESCRIPTION: 


THIS PROGRAM TESTS THE FOLLOWING SYSTEM SERVICES: 
LKWSET, SULWSET | 
| 


D IN THE 
CH*S LOCATED AT THE END 
CIRC MH 


C UMVE 
UG REFER TO THESE ABOVE MENTIONED 
MACROS TO FIND OUT HOW TO REMOVE THESE TEMPORARY PATCHES. 

ALSO, THE FILE MMGTST.DAT, WHICH IS CREATED BY RUNNING MMGCRTFIL.MAR, 
IS NECESSARY TO RUN THIS PROGRAM AS IT IS REFERENCED BY CREMAPSEC. 


*PRIVILEGES: 
IN ORDER TO RUN THIS PROGRAM YOU MUST HAVE IN YOUR POSSESION 
THE PRIVILEGES PRMGBL AND PFNMAP, 


SREAAAAAEAAA AEA AEAAAAAAAAAAAAAAAAARAAAAAAAAAAAAAAAAAAAARAAAAAAAAAAAAAEAES 


3 $ 

3 THE SYSTEM SERVICES ARE TESTED IN THE FOLLOWING MANNER. THE PROGRAM 
3 IS DIVIDED INTO THREE SEPERATE SECTIONS. THE FIRST SECTION DOES 

$ SEVERAL LOCK AND UNLOCK TESTS AND THEN FORCES PCSSIBLE ERROR PATHS 
3 FOR THE SYSTEM SERVICES. THE NEXT SECTION DOES SEVERAL LOCK AND 

3 UNLOCK SYSTEM seyiSs CALLS FOR GLOBAL SECTIONS. FINALLY, THE THIRD 
3 SECTION DOES THE SAME TESTS, ONLY USING PFN MAPPED SECTIONS. EACH 

3 OF THE SECTIONS IS RUN THREE TIMES, AND A MESSAGE IS SENT TO THE 

3 OPR AT THE START OF EACH SECTION NOTIFYING HIM AS TO WHICH SECTION 

3 OF TESTS IS ABOUT TO BE RUN. 

3 REFER TO MASDS:CMMGTST.COMJMMGTST.RAP FOR FURTHER INFORMATION 

3 REGARDING JUST HOW COMPLETELY THE ABOVE MENTIONED SYSTEM SERVICES 

3 ARE TESTED BY THIS PROGRAM. 

3 REFER TO MASDS:CMMGTST.COMJMMGTST.RAP FOR FURTHER INFORMATION 

3 REGARDING JUST HOW COMPLETELY THE ABOVE MENTIONED SYSTEM SERVICES 

5 ARE TESTED BY THIS PROGRAM. 

: *NOTE 

3 T THE FUTURE. UNTIL 


; START HERE 


MPH NO DMO OOOOOOOOAOOOAOAOAOOOOAOAOAAOAAOAIAOOOAAOAAAOOAOAAOOO 


9 9 9 9 9 999999399939 999993 
Dl ek ek th eh ee a a a a ad aad a ah ak kk a ak kk ak ek kk kk ek kk kk 


AT IPPININININPGNININDS 8 2? 9 9 * * SM DOOCOOCOOCOOCO OO OOOO OOO OWWWO O00 O90 VIN 
OOD NIA MNES 9 OD NAME WIN O OD NA NE WIN SO OD NA UE WIN 0 OD NOU EW OOONOuU 


Pe ee ee ee ee ee 


0000 START: .WORD 0 sENTRY MASK 
$OPEN W*FAB [OPEN THE FILE ‘$OUTPUT’ 
06 50 £9 044 BLBC RO, 108 SBRANCH IF E 
4 CONNECT W RAB [CONNECT THE RECORD ACCESS BLOCK 
09 50 €8 045 LBS ‘ 
5 108: EXIT_S R SEXIT WITH STATUS IN RO 
00000020'EF 01 DO 046 20$:  MOVL ~ #1,PASSCNT ‘INITIALIZE THE PASS COUNT 
466A SRESUME_S PID :SET UP PROCESS ID 
50 00000018'EF 3c 0479 MOVZWL ~PID,RO 
4 $FAO_S PIDCTL.MSGLEN,PIDMSGD,RO sINIT THE PROCESS ID STRING 
49 CRETVA_MESSAGE: 
49 FAO_S RUN1_MSG,MSGLEN,MSGBUFD ; INFORM OPR NORMAL VA USED FOR TEST 
o7eF 30 O4AF BSBwW TYPEASGBUF 
0010'CF 04 CA 4B BICL  #CTLSM_PIDMSG,W*CTLFLG :STOP PROCESS ID FROM PRINTING 


————— 
vOs-000-~ inf FEL REARYSRSET/ Soe svsten entice rposepmt9pe 99:04:08 YANZARE Raeee YOLCBD yg PaBe 12 


4B? 433 RSTART.1: 
487 4 RANGECHK ON 


OO10'CR 08 cB 04 Bist #CTLSM_RNGCHK,W*CTLFLG 
4 § 4 4 $FAO_S 1m G MSGLEN,MSGBUFD,PASSCNT 
0795 30 0409 4 BSBW YPEMSGBU 
40C 436 EXPREG # 
3 01 «3c «bane MOVZWL $*#SSS_NORMAL ,RS 
4 01 06 O4DF MOVL  #1,R 
51 008"¢F D aE e MOVAL W*RETRANGE ,R1 
23 0 0469 BSBW EXPRE GSUBR 
: 0008'CF 7D ae 437 MOVQ WARETRANGE,R 
00'CF 3 D O4F1 4 : MOV R2,W*INRANGE 
14°CF DO O4F6 4 MOVL  R2,W*SAVEND 


& 
MMGLKWULW - TEST OF SLKWSET/SULWSET SYSTEM : RVICE 16-SEP-1984 02:04: AX/VMS Macro V04-00 Page 13 
v04 LOCK AND UNLOCK FROM WORKING sft ERY g7 SEE 3be 85:04:98 MMGTST.SRCIMMGLKWULW.MAR:1 9° (BD 
“FB ith .SBTTL LOCK AND UNLOCK FROM WORKING SET TEST 
f8 443 t TEST LOCK/UNLOCK PAGES FROM WORKING SET 
5A 9014" CF DO O4FRB 445 MOVL W*SAVEND,R1 
B OSFF CA ODE 44g MOVAL 3951 =13(R10),R11 
44 CRETVA R10,R11 
900° cF A 00 MOVL R10,W*INRANGE 
' B p A ov R11 .W* INRANGE +4 
1 3x F MOVZWL S*#SS$_NORMAL,R3 
29 ‘CF DE 1 MOVAL W*INRANGE,RO 
"CF pF 1 MOVAL W*RETRANGE,R1 
5€2 ic BSBW  CRETVASUBR 
1F 448 LKWSET 
53 01 3c O51F MOVZWL S$*#SS$ WASCLR RS 
39 OOO'CF DE O05 $ MOVAL W*INRANGE,R 
1 0008 CF bE 5 MOVAL W*RETRANGE,R1 
SDA 52C BSBW  LKWSETSUBR 
SF 8649 ULWSET 
53 09 «(3c «(05 2F MOVZWL S*#SS$ WASSET R3 
50 OO00'CF DE O05 $ MOVAL W*INRANGE,R 
51 0008'CF DE 5 MOVAL W*RETRANGE,R1 
OSDE 3 ¢ - SBW  - ULWSETSUBR 
53p 451 LKWSET ENDVA=R10 ;LOCK FIRST PAGE ONLY 
0004 'CF 5A 0 053F VL —- R10, W° INRANGE +4 
53 01 30544 MOVZWL S*#SS$ WASCLR, 3 
50 O000°CF DE 0547 MOVAL W*INRANGE,R 
51 0008'CF De 54¢ MOVAL  W*RETRANGE,R1 
0585 551 BSBW LKWSETSUBR 
554 452 LKWSET ENDVA=R11,STATUS=#SS$_WASSET  ;LOCK ALL, FIRST ALREADY LOCKED 
0004'cF 5B DO 0554 MOVL  R11,W*INRANGE?4 
53 09 «3c. «(0559 MOVZWL #SS$ WASSET,R3 
50 O000'CF DE 055¢c MOVAL W*INRANGE,RO 
51 0008'CF DE 561 MOVAL W*RETRANGE,R1 
OSA0 566 BSBW KWSETSUBR 
569 «453 ULWSET ENDVA=R1 sUNLOCK FIRST PAGE ONLY 
0004 CF 5A D0 0569 MOVL R10,W*INRANGE+4 
3 09 3C 056 MOVZWL S“#SS$ WASSET .R3 
50 0000 cF DE 0571 MOVAL W*INRANGE,R 
1 0008'CF DE 576 MOVAL W*RETRANGE,R1 
OS9F 578 BSBW ULWSE 
S7E 454 ULWSET ENDVA=R11,STATUS=#SS$_WASCLR | ; UNLOCK ALL, FIRST ALREADY UNLOCKED 
0004 CF 58 0 a7 OVL W* INRANGE 4 
x ¢ MOVZWL #SS$ WASCLR,R3 
50 9000° CF DE 0586 MOVAL W*INRANGE,R 
1 000 a4 bE 5 MOVAL W*RETRANGE,R1 
05 39 a BSBW  ULWSETSUBR 
593456 LKWSET STARTVA=R11 sLOCK LAST PAGE ONLY 
0000" ¢F 5B 0 39 R11,W* INRANGE 
3 01 3c 059 MOVZWL S*#SS$ WASCER.RS 
50 "CF «=6DE «(05 MOVAL W*INRARGE,R 
1 "CF pF SA MOVAL W*RETRANGE a1 
561 A BSBW  s LKWSE 
AB C4 S7 LKWSET STARTVA=R1I0,STATUS=#SS$_WASSET ;LOCK ALL, LAST ALREADY LOCKED 
0000'cF SA pO OSA MOVL R10. W* INRANGE 


H+ oe, - TEST OF SLKWSET/SULWSET sysiee Senvice ot a tS og: Qe: 9 AX/VMS Macro V04-00 Page 14 


LOCK AND UNLOCK FROM WORKING SET MMGTST. SRCIMMGLKWULW.MAR; 1 (8) 
09 3¢ OSA MOVZWL #$S$_WASSET.R3 
50 ‘CE OD B MOVAL W*INRANGE,RO 
CF p B MOVAL  W*RETRANGE,R1 
54¢ BA BSBW LKWSETSUBR 
BD 458 ULWSET STARTVASRI ;UNLOCK LAST PAGE ONLY 
0000" f 58 0 058 ov. W* INRANGE 
C 05¢ HOV WL Sriss S$ WASSET, »R3 
50 "CE «ODE 605¢ MOVAL W*INR 
1 "CF DF CA MOVAL vohevaanee” R1 
548 CF BSBW ULWSE WSETS 
D2. 459 ULWSET STARTVA=R R10,§ » STATUS=#SSS_ WASCLR ;UNLOCK ALL, LAST ALREADY UNLOCKED 
0000" ¢F 5A 0 2 MOV E 
1 3c 05D MOVZWL Ast wascir R3 
50 000 "CF DE OSDA MOVAL W*INRANGE RO 
1 0 CF oF SDF MOVAL URETRANGE, R1 
536 5E4 BSBW  -ULWSETS 
5E7 © 460 DELTVA :CLEAN UP 
53 01 «3C.«(05E7 MOVZWL sa4sss NORMAL ,R3 
50 0000'CF DE OS5EA MOVAL  W*INRANGE ,RO 
1 0008’ CF De SEF MOVAL UORETRANGE. R1 
“FE 54 BSBW  DELTVASUBR 


8 
~SEP-1984 02:04: AX/VMS Macro V04-00 Page 1 
VUNLOCE FROM WORKING 'S-SEP=1984 O1:58:15 ANGTST. SReIAMCL RWULW.MAR; ( 


Amd ad 
xc 


OF WS Sa 

ERRORS IN - 

F 463 .SBTTL FORCE ERRORS IN LOCK/UNLOCK FROM WORKING SET $$ 

i G84 : FORCE ERRORS IN LOCK/UNLOCK FROM WORKING SET $$ 

Ht te ' LKWSET #480000200 to083 Tea ass gNOPRIV sLOCK SYSTEM PAGE 3 

O'CF 000200 8F OD F . “1 $$ 
a a a Ha ‘pha ; 
RSE a eat Fabs : 
othe £18 467 ULWSET er Atuseagss NOPRIV UNLOCK SYSTEM PAGES er 

53 26 «3c «(0619 MOVZWL #SSS_NOPRIV,R3 cR 

0 OO'CF DE 061C OVAL INRANGE ,RO CR 

34 So08" EE DE 621 HOVAL WeRETRANGE .R1 cR 

ws $56 468 LKWSET acia3i-<l2bap>-1> > sa INRANGE , #558 PAGOWNVIO er 

QOOO'CE  7FFEFFFF 8F D0 0629 MOVL AS <1a51-<1 2899 INRANGE cr 
m0"SS Gree Be Sc 0689 MOVZUL #85 PAGOUNYIO,RS cr 
ay 0008" CF bE Oei§ MOVAL URETRANGE, R1 cr 

-™ rat} 469 — - ;LOCK PAGE OWNED BY SOMEONE ELSE et 

boca 470 ULWSET STATUS=#SS$_PAGOWNVIO ‘UNLOCK PAGE OWNED BY SOMEONE ELSE cI 

53. O1EC BF 0 3C (0648 MOVZWL #SSS_PAGOWNVIO,R3 cr 

50 O00" Cr DE 065 MOVAL W*INRANGE,RO cI 

51 0008'CF DE ret MOVAL W°RETRANGE RI ct 

weed been 471 LKWSET We SAVEND W°SAVEND SSS ACCVIO  ;LOCK NONEXISTENT PAGE DE 

Q000'CF  0014'CF 00 65D sh VEND uel NRANGE DE 
0004" CF 0014° CF p 664 ROWE Hc saEn ue NR DE 
‘Cr DE O66 ROVAL WP INRANGE ,RO eX 

31 ous er bE $78 MOVAL ate RI eX 

ses re 472 ULWSET STATUS=#SS$_ACCVIO sUNLOCK NONEXISTENT PAGE FA 

53 Oc 3C 0678 MOVZWL HSS ACCVIO,R3 FA 

50 O000'CF DE 067 MOVAL W*INRANGE,RO FA 

51 0008" CF be eas MOVAL U*RETRANGE JR1 FA 

sabe ret 473 LKWSET } “#0458 -ACCVIO sLOCK DELETED PAGE FA 

0000'CF 00 v0 06 MOVL =W* INRANG FA 
0004'CF 00 6 MOVL 4 W* INRANGE + FA 

gf C Re 69 MOVZL #S§$_ACCVIO,R FA 

50 O000°CF DE 0698 MOVAL W*INRANGE,RO FA 

51 0008° bE 69D MOVA us eRETRANGE ,R1 ts 

-_ ens 474 ULWSET STATuserBSRAACEVIG, eo SUNLOCK DELETED PAGE fl 

0 0 ef H! ona MOVAL W*INRANGE,RO Fl 

2 BB Ce 6AD MOVAL U*RETRANGE R1 cE 

6468 85 Bs - BSBW  ULWSETSUBR ce 

t GE 

C 14 4'CF OD re 47 MOVL  W*SAVEND,WINRANGE Gt 
oo1e ser” “bo00d8 ff r C 6B 13 ADDL3 #3*512-1.W*SAVEND,W* INRANGE +4 it 


m 8 
MMGLKWULW - TEST OF SLKWSET/SULWSET SYSTEM SERVICE 16-SEP-1 AX/VMS Macro V04-00 Page 1 ly 
yoes000 FORCE ERRORS IN LOCK/UNLOCK FROM WORKI iff mets 7 8¢: ir} % YRMGT ST SRCIMMGLKWULW.MAR;1 = (8) Sy 
¢ 478 CRETVA ;CREATE SOME PAGES SE 
01 3 § MOVZWL S$*#SS$_NORMAL,R3 $i 
320 9 ‘CF DE C MOVAL W*INRANGE,RO SS 
1 qi DF D MOVAL U*RETRANGE RI SS 
409 D BSBW CRE VASUB $$ 
608 479 LKWSET STATUS=#SS$_ACCVIO,INADR=W*4 | ; INPUT RANGE NOT ACCESSIBLE SS 
53 0c) | 063c «(06D MOVZWL sss ACCVIO,R3 $s 
39 9004 °CF DE 06D MOV w*4,R0 SS 
1 000 gt DF 6E MOVAL  W*RETRANGE,R1 $5 
421 6E BSBW  LKWSETSUBR SS 
oee 480 ULWSET STATUS=#SS$_ACCVIO, INADR=W*4 ; INPUT RANGE NOT ACCESSIBLE SS 
$3, .0¢ 3 OGE MOVZWL #SSS_ACCVIO.RS $$ 
39 O4'CF DE O6E MOVAL W*4,RO0 $T 
1 0008’ Cf DE 6F MOVAL W*RETRANGE,R1 SY 
0425 6F BSBW  _ULWSETSUBR SY 
or6 481 LKWSET STATUS=#SS$_ACCVIO,RETADR=W*S | ;RETURN RANGE NOT ACCESSIBLE SY 
53 0c.) OCC F MOVZWL #SS$_ACCVIO,R3 SY 
50 0009 cF DE O6FB MOVAL re SY 
51 000 ns bf 190 MOVAL wW*8,R1 SY 
0461 7 BSBW KWSETSUBR SY 
0708 482 ULWSET CTATUS=#SS$- A ACCVIO,RETADR=W°8 | ;RETURN RANGE NOT ACCESSIBLE SY 
53 Oc 3C 708 MOVZWL #SS$_ACCVIO,R3 
50 O000'CF DE 0708 MOVAL W*INRANGE,RO 
a1 0008s «86 OnTs BsBurULUSET 
0718 483 CRETVA W*SAVEND, ULuse TSUBR #sss VASEULL :CREATE ALL POSSIBLE PAGES 
Q0000'CF 0014'CF DO 0718 HOVL us SAVEND INRANGE 
nies eal 74 ae | eo ROVZUL #588 30-1 GH INRANGE 4 
50 ater DE 072D MOVAL W*INRANGE 
51 0008'CF DE 7 3 MOVAL W*RETRANGE, 
O3A7 7 BSBW CRETVA SUBR 
73A 484 LKWSET STATUS=#Ss LKWSETFU ;AND TRY TO LOCK TOO MANY 
53 0194 BF 3¢ 07 A MOVZ2WL #SSS$ LKUSETFUL, R3 
50 «60000'CF §=OiDE. «O07 3F OVALS SINR NGE RO 
51 0008°CF DE 0744 MOVAL UPINRANGE AO 
038D 0749 BSBW  LKWSETSUBR 
74C 485 RANGECHK OFF 
0010'CF 08 CA O74¢ BICL #CTLSM_RNGCHK,W°CTLFLG 
751 486 ULWSET INADR=W*RETRANGE ;UNLOCK ALL THAT WERE LOCKED 
53 09 «3c «(0751 MOVZWL S*#SS$ WASSET., R3 
50 0008'CF DE 0754 MOVAL W*RETRANG 
51 0008'CF bE 759 MOVAL URETRANGE : Rt 
038C 75€ fis So TSUBR 
761 487 DELTVA “ie 0-1 USAGE END ;DELETE ALL THAT WERE CREATED 
QOOO'CE 3FFFFFFF 8F DO 0761 *#1a30- ANGE 
0004 ' CF 9914" CF p 76h tg USAVENS Uhl WE RANGE S4 
01 3C 0771 HOVZWL S*4S MAL .R3 
50 O000'CF DE 0774 MOVAL W*INRARG anor 
51 0008 CF bE 779 MOVAL W*RETRANGE,R1 
0374 77E BSBW  DELTVASUBR 
781 488 RANGECHK ON 
0010'CF 08 CB , i so BISL  #CTLSM_RNGCHK,W*CTLFLG 
f 6 430 : END OF LOOP 
03 0020'CF OO1C'CF F3 0786 492 AOBLEQ W*MAXPASSCNT,W*PASSCNT,150$ 


roesn 


FOREE ERRORS tN LOK 
mE MH su 


"UN 


ESA"PUGN HAREIGE “HCEEDIOUS G90: 99 WAGYEEeSmelOBlaamans 1° Uh 
Osha syresse 
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= TEST OF SLKWSET su ull SET SYSTEM BeRVICE 16-SEP-1984 4: AX/VMS Macro V04-00 Page 1 
TEST IFO ORCE ERRORS IN LOCK/UNLOCK GLOBAL §- -SEP=1984 84: g £06 ERMGTST. SREIMMCLEWULW.MARS 1 . 8) 
? 4 497 ~SBTTL TEST/FORCE ERRORS IN LOCK/UNLOCK GLOBAL SECTS 
£94 499 [TEST & FORCE ERRORS IN LOCKING/UNLOCKING GLOBAL SECTIONS 
794 1 GBL_SEC_MESSAGE: 
OO10'CF 04 CB 0794 g BISL | #CTLSM_PIOMSG,W*CTLFLG yALLOW PROCESS ID TO PRINT 
799 $FAO_S RUN2_MSG,MSGLEN,MSGBUFD S INFORM OPR GBL SECTION VA SPACE BE! 
04BE 30 078 4 BSBW” TYP [USED FOR TESTS 
0010'CF 0% CA 078 5 BICL ac TESA PIDMSG. W*CTLFLG :STOP PROCESS ID FROM PRINTING 
0020'CF 01 00 788 6 MOVL “PRSSC SREINITIALIZE THE PASS COUNT 
7BD é RSTART_2: 
7BD RANGECHK ON 
0010'CF 08 C8 O7B #CTLSM_RNGCHK,W*CTLFLG 
7C2. «5510 $FAO_S 1DSG MSGLEN, MSGBUFD,PASSCNT 
vont Gag Bsou", TYPERSGBUF 
53 91 3 He MOVZWL s*asss_ NORMAL ,R3 
51 0008" CE DE o7e8 cc W*RETRANGE ,R1 
039¢ 30 O7Er SBW §EXPREGSUBR 
52. O008'CF 7D ore 513 mova BaF RANGE R 
0000' CF 32 7D O7F7? 514 mova RB. ,W* INRANGE 
0014°CF 52 00 ore 315 MOVL W*SAVEND 
QOON'EF «SOTA'EE BD 0808 $17 MOVE _U*SAVEND WU" INRANGE +4 een ae ores 
O80F 519 CREMAPSEC - :CREATE READ-ONLY GLOBAL SECTION 
O80F 3 0 INADR=<W* INRANGE> , ~ 
O80F 1 FLAGS=#<SECS$M_GBL ! SECSM_PERM>,- 
B0F 5 é PAGCNT=é 
O80F . RETADR=<U*RETRANGE> 
53 01 «3 O80F menee OVZWL S*#SS$_NORMAL ,R3 
go wi BBE Ry 
FOIA CF DF HE PUSHAL pi: 
FCOC CF =F’ «COB 1C PUSHAL W*°GBLSECNAM 
00004001 BF DD 0820 PUSHL eSRetan GBL ! SECSM_PERM> 
Sesser br His rust Yelwnanee 
QOO0000'EF O08 F CALLS a8. i :: CREMAPSEC 
MP 71F PREVIOUS GBL SECTION HASN'T 
50 00018204 oF "3 i Sear i [BEEN DELETED TRY CREMAPSEC AGAIN. 
51 FBOA. CE oe ss ROVAL UPCRMPSCERR, JR1 | 
46 524 LKWSET W*RETRANGE W*RETRANG Es A SLOCK READ-ONLY GLOBAL SECTION 
"CF B'CF D0 0846 MOVL weRET TRANGE -¥ GE | 
"CF goo: F 4D OVL “RETR ANGE #4 {ie JNRANGE +4 
61 Re 54 MOVZWL sass WAS 
0 ‘CF 36ODE 37 OVAL W*INRAN | 
1 0008+ CF pe C VAL at R1 
2A5 6 BSBWLKWSETSUBR 
64 525 ULWSET W*RETRANGE ,W*RE TRANGE +4 sUNLOCK WHAT WE LOCKED 
0000'CF O008'CF DO 0864 MOVL  W*RETRANGE,W* INRANGE 


wef 


CF 
4 
01 
2 "CF 
1 008° CF 
0263 
0000° CF SRSA 
0004 "CF 14°CF 
5301 
60 
an 
s 
FB6C sf 
00004009 8F 
4 ef 
a es sean $8 A 
FAFA CF 
0249 
QO0O'CF  0008'CF 
0004 'CF g00c' cf 
24 
50 0000°CF 
51 = 0008" CF 
0205 
¢ Boot 
st Binet 
0161 
03 O020'CF  O01C'CF 
pon? 
E8C 
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TEST OF SLKWSET/SULWSET SYSTEM SERVICE 7 SEP-1984 


TES /FORCE 


DO 

d0 Ag 

AF 

AF 

BAF 

AF 

OB8AF 

3C OBAF 

DD 0865 

dD 88 

DF 088 
dD 
DF 
DD 
DF 
DF 
FB 
D1 
5 


_~J 

me 
SOOOCOOCOOCOOCOOOOOOOOOOOOCOOOOOOOSOOoOoOOo 
TD WWIII B&O NEF MO NEO AOUMOUM SP AOO SPARS 


OOOOO00000O0O0 OOOO 00 09 09 09 60 CD 09 0D 0D CD OD CD 


RNIN 3 —QOCOO BMF HWMMMMNOOVMOOO 


RRORS IN LOCK/UNLOCK GLOBAL 


5 


5 


5 


26 DELTVA 


MOVL 
MOVL 
CREMAP 


UFWwn—OOOan 


30001$: 


36 LKWSET 


37 


END OF LOOP 


Ce et ee et ee ek hd 
WMEWn—OOe 


BRW 
160$: BRW 


B 
SOGBLSC_S 


8 
SOGBLSC_S 


-SEP=1984 
Rare 
“INRAR 
W°RETRANGE. R1 
BW ULWSETSUBR 


INRANGE 
U-RETRANGE, 4 
DELT 


“GSDNAM=<W*GBLSECNAM> 
W*SAVEND ,W*IN 


RANGE 
apset SAVEND.W*INRANGE +4 


INADR=<W* INRANGE > 


FLAGS=#<SECSM NGBL!SECSM_WRT! SECSM_PERM>,- 


PAGCNT=# 
RETADR=<u"AETRANG E> 


< 8:58:98 


y* gerne 


Pt 9 RORRAL R3 


S“#SS$_NORMAL ,R3 


PUSHL a 
W*F ILENAME 
#0 


v 
Cc 
nn 
= 
= 
Se 


8 C 
URE TRANGE 
MOVL W*RETRANGE,W* 


esti gre 


O° CRMPSCERR, R1 
W*RETRANGE +4 ieee NOPRIV 


ANG 
MOVE wR TRANGE+4 U" INRANGE +4 
NOPRIV,R 


#SS 


* INRANGE ,R 
W*RETRANGE ,R1 
LKWSETSUBR 


z 
o 
< 
> 
— 
< 


MOVAL W*INRARGE,RO 
U°RETRANGE R1 
DELTVASUBR 


GSDNAM=<W*GBLSECNAM> 


RSTART—2 


S*#SS$_NORMAL ,R3 


AOBLEQ W*MAXPASSCNT,W*PASSCNT, 160 
PFNMAP_MESSAGE 


AX/ VM 


sm 


MMGTS ST.SR 


o V04-00 Pa 
MMGLKWULW.MAR; 1 ( 


;DELETE WHAT WE CREATED 


DELETE THE SECTION 


CREATE A WRITABLE GLOBAL SECTION 


W“GBLSECNAM 
53 ai WRT! SECSM_PERM> 


SECTION HASN'T 


zr 


TRY TO LOCK IT 


;DELETE WHAT WE CREATED 


;DELETE THE SECTION 


ss 


Y CREMAPSEC AGAIN. 


oo 


Tat 


MAGLKWULW TEST OF SLKWSET/SULWSET SYSTEM FeRVICE 1 “SEP-1984 AX/VMS Macro V04-00 Pa o- 
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3 ~SBTTL TEST/FORCE ERRORS IN LOCK/UNLOCK GLOBAL SECTS 
3 i STEST & FORCE ERRORS IN LOCKING/UNLOCKING PFN MAPPED SECTIONS 
931 ? BF NMAP_MESSAGE : 
OO10'CR 04 CB 1 ; BISL rans PIDMSG,W*CTLFLG ;ALLOW PROCESS ID TO PRINT 
936 $FAO_S SG,MSGLEN,MSGBUFD : INFORM OPR PFN MAPPING BEING 
0321 30 0940 554 BSBW YPEMSGBUF SUSED FOR TESTS 
QOO10'CE 04 CA 350 55 BICL acTL$R PIDMSG, W*CTLFLG [STOP PROCESS ID FROM PRINTING 
0020'CF 01 00 } H 36 MOVL @PRSSC SREINITIALIZE THE PASS COUNT 
: A 38 RSTART_3: 
A RANGECHK ON 
0010'CF 08 cB 095A BISL § #CTLSM_RNGCHK,W*CTLFLG 
95F 560 $FAO_S 1DSG MSGLEN,MSGBUFD,PASSCNT 
O2F2 30 097¢ 561 BsBW YPEMSGBUF 
97F 562 EXPREG n 
53 01 «-3C«(O97F MOVZWL $“#SS$_NORMAL,R3 
54 01SCés«é 0982 MOVL = #1 
51 O0008'CF DE 098 MOVAL W*RETRANGE,R1 
554 098A CLRL. oR 
oiFF 0 098¢ SBW EXPREGSUBR 
52. OOO8'CF 7D O98F 563 MOVQ  W*RETRANGE 
0000' CF 3 7D 0994 564 mova R /W* INRANGE 
0014°CEF D0 0999 $6 MOVL *W*SAVEND 
Q0000'CF 0014'CF D0 44 $$ mOVL W*SAVEND W* INRANGE :DEFINE INRANGE AT END OF CODE 
0004 ' CF Q014"¢F 0 O9A 368 AVEND .W* INRANGE +4 
53 01 3 O9AC $9 F MOV IUL Sa pess _NORMAL ,R3 :SET EXPECTED RETURN STATUS 
O9AF 371 SCRMPSC_S sCREATE PFN MAPPED SECTION 
O9AF ie ~TNADR=<W* INRANGE> = 
QAF 57 RE TADR=<W°RETRANGE>, - 
AF rs GSDNAR=<U*GBLSECNAM>, ° 
SAF ds FLAGS= =A <SECSH_ GBL ! SECSM_PERM! SECSM_PFNMAP>,- 
AF pu PAGCNT 
09D7 28 tenes 
09D7 37 TIN ORDER TO REMOVE THE TEMPORARY FIX EXPLAINED ABOVE REMOVE THE LINES 
907 80 «STARTING FROM HERE AND EXTENDING THE THE NEXT SET OF ASTERICS. 
50 0001828A 8F D1 0907 582 CMPL = #*X1828A,RO :1F PREVIOUS GBL SECTION HASN'T 
CF 13 90 ; BEQL =siL1 ‘BEEN DELETED TRY CREMAPSEC AGAIN. 
perene 
51 F9FB CF be 9E 5 MOVAL W"CRMPSCERR.RI 
0147 3E 6 BSBW CHECK 
9E 88 LKWSET a die Bay Bh ge Fo sLOCK READ-ONLY PFN MAPPED SECTION 
0000' CF B'CF 09 9E WPRETR RANGE , W* INRANGE 
0004 ' CF crc p SEF “RET RANGE #4 ie NMANGE +4 
1 3C O9F MOV IWL saa5s8 WA 
0 ‘CE §«=6DE «(OOF MOVAL W*l RRARCES 
1 "CF bE Has ROVAL at R1 
0103 A BSBW KWSETSUBR 
A06 =: 589 ULWSET W>RETRANGE W*RETRAN GE +4 sUNLOCK WHAT WE LOCKED 
0000' CF O8'cF DO OA MOVL  W*RETRANGE,W* INRANGE 
0004 ' CF OC'CF DO OAOD MOVE URETRANCES<, W* INRANGE +4 
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MOVZWL S74sss YASS T,R3 
MOVAL W*INR 
MOVAL yohtraee” R1 
BSBW  ULWSETSUBR 
590 DELTVA sDELETE WHAT WE CREATED 
MOVZWL $*#SS$_NORMAL,R2 
MOVAL W*INRANGE,RO 
MOVAL W°RETRAN NGE,R1 
BSBW = DELTVASUBR 
91 SDGBLSC_S ;DELETE THE SECTION 
36 SDNAM=<W*GBLSECNAM> 
9 mOVL W*SAVEND ,W* INRANGE 
94 W*SAVEND ,W* INRANGE +4 
9 - MOV IWL Sapee _NORMAL ,R3 ;SET EXPECTED RETURN STATUS 
9 SCRMPSC_S ;CREATE PFN MAPPED WRITABLE SECTION 
9 ~TNADR=<W* INRANGE>, = 
9 RE TADR=<W*RETRANGE>, = 
600 GSDNAM=<U*GBLSECNAM>, - 
60¢ FLAGSodcsecsM_ GBL ! SECSM_PERM! SECSM_PFNMAP! SECSM_WRT>,- 
60 PAGCNT=# 
604 ; *ekeee 
605 :IN ORDER TO REMOVE THE TEMPORARY FIX EXPLAINED ABOVE REMOVE THE LINES 
606 [STARTING FROM HERE AND EXTENDING THE THE NEXT SET OF ASTERICS. 
608 CMPL #*X1828A,RO y1F PREVIOUS GBL SECTION HASN'T 
609 BEQL L2 {BEEN DELETED TRY CREMAPSEC AGAIN. 
610 ;eeeee 
611 MOVAL W*CRMPSCERR,R1 
6i1¢ BSBW CHECK1 
614 LKWSET We RE TRANGE -W*RETRANGE +4 STATUS=#SSS_ NOPRIV sTRY TO LOCK IT 
MOVL § W*RETRANGE+4,W* INRANGE +4 
MOVZWL #sss NOPRIV,R3 
MOVAL W*INRANGE RO 
MOVAL UORETRANGES R1 
BSBW  LKWSETSUBR 
615 DELTVA :DELETE WHAT WE CREATED 
MOVZWL se4sss NORMAL ,R3 
MOVAL NRANGE ,R 
MOVAL U*RETRANGE, R1 
BSBY = DELTVASUB 
616 S$DGBLSC_S sDELETE THE SECTION 
61 GSDNAM=<W*GBLSECNAM> 
19 : END OF LOOP 
6 1 AOBLEQ W*MAXPASSCNT ,W*PASSCNT,170$ 
6 : SEX XIT _S RO 
6 4 170$: BRW .~ RSTART_3 


SUBROUTINES TO CALL THE SERVIC SEP=19 


R2 PRESERVED 


Ac! ¢ «SBTTL SUBROUTINES TO CALL THE SERVICES 
AE § : INPUT 
AE1 ? : RO = INADR 
AE1 § 3 | = RETADR 
Ac} 3; R3 = DESIRED STATUS 
mio 
nt © $ ; R2 PRESERVED 
AEI 3 § CRETVASUBR: 
AE1 640 SCRETVA_S (RO),(R 
51 FBDA ct DE AEE 641 MOVAL “W*°CRETVAE 
ane AF 64g BRB CHECK 
AF G44 + INPUT 
AF G46 : RO = INADR 
OAFS 647 : R1 = RETADR 
AF 648 ; R3 = DESIRED STATUS 
AF5 650 : OUTPUT: 
ge 
6 * 
654 6 
¢ 
9 : 
5 838: 
0 
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r 
MMGTST.SRCJMMGLKWULW.MAR; 1 


1) 
RR,R1 ;ERROR CONTROL STRING 
| 


a ee — 


| 
o V04-00 Page (73) 


5 
5 
: 
F 54 DELTVASUBR: 
AFS 65 $DELTVA_S (RO), (R1) 
51 FBCE CF DE 0802 65 MOVAL “W*DELTVAERR,R1 SERROR CONTROL STRING 
26 11 080? 65 RB CHECK 
0 65 
0 659 ; INPUT 
09 660; 
09 661; RO = 
09 662: R1 = RETADR 
9 663; R3 = DESIRED STATUS 
9 664 ; 
B09. «665 ::~“OUTPUT: 
B09 096 3 
B09 667 : R2 PRESERVED 
B09 «=s« 668; 
B09 «669 _ LKWSETSUBR: 
B09 : : SLKWSET_S (RO), (R1) 
DE 0B16 67 MOVAL “W°LKWSETERR,R1 SERROR CONTROL STRING 
11 0818 67 BRB CHECK 
BID )=—s« 6735; 
B1D 674 : INPUT 
B1D 75 : 
B1D 676 : RO = INAD 
BID «677: R1 = RETADR 
B1D 678 ; R3 = DESIRED STATUS 
BID Ss «679 
B1D }§«=«©.680 ; OUTPUT: 
BID 3=—s« B11 gs 
BID 6 : : R2 PRESERVED 
BID )=s«68S 


vOe=000-~ SBS PeeBOAUPELCEOHMSELERUHTEY SEmTCe serge geeogseg yatune Reece yOK= 00, ag, Pave 25, v0. 


FS 
NES 

D 4 a he 

D ULWSET_S (RO),(R1) 

4 MOVAL “W*ULWS SEY TERR,R1 sERROR CONTROL STRING 


51 F8C6 CF Se 


o” 
— 


9 
eS FESEAEMETEERVECES FERV™CE “goser-19ne 97:04:08 NTN Mace YOKcOD ag, POOP 2, 


we 
s— 
zn 
2 


F : CHECK: 
53 3 : F CMPL RO R3 :STATUS AS DESIRED 
é 0 BEQL 108 ‘BRANCH IF Y 
53 0244 E é , 31 CmPY #S$8_VASFULL.RS SIF EXPECTING VIRTUAL ADDRESS SPACE 
50 iC 8B 38 CMP #SS$_EXQUOTA,RO ; THEN EXCEEDS QUOTA MAY ALSO BE RETU 
48 1 ; 694 os BEQL 108 
53 01 8} 4 636 CMPW = s #SS$_NORMAL,R3 s1F EXPECTING NORMAL 
? é 4 9 BNEQ = 5$ i COMPLETION FOR CRMPSC 
50 0619 8F B 4 698 CMPW == #SS$_CREATED, RO "THEN GLOBAL SECTION CREATED 
F 13 OBGA 6 BEQL 108 ~ {MAY BE RETURNED 
4 oD OB4¢ 0 5$ PUSHL R4 
54 04 AE 00 OB4E 701 MOVL  4(SP),R4 ;ADDRESS OF ERROR 
50? ; SFAO_S (R1),MSGLEN,MSGBUFD,R4,RO,R 
+ eG INRANGE, INRANGE +4 , RE TRANGE, aE TRANGE +6 
19 O88 704 POPR #*M<R 
O0E 0 0887 705 BSBW TYPERSGBUF 
0> fess fOh wos: 
\d N g 
0069 31 0888 708 BR RANGE CHK GO CHECK THE RETURN RANGE 


MMGLKWULW - TEST OF SLKWSET/SULWSET SYSTEM LeRVICE 16=$ ~ AX/VM cro V04-00 Pp 5 | 
yoeco0e” SUBROUTINES TO FALE Tne SERVICES Breer ohe BF Sk:9§ HANLYRS Sacre OOO mans? 2% clay 
10 ; 
i ; INPUT: 
13; R| = RETADR 
14: R3 = DESIRED STATUS 
15 : R4 = PAGCN 
at ; RS = REGION 
B 18 : OUTPUT: 
OBBE 8 : 
— 7 0; ; R2 PRESERVED 
f : j EXPREGSUBR: 
—E 7 SEXPREG_S R4,(R1) 
51 F843 CF DE % f 4 MOVAL “SAE XOREGERRY a1 sERROR CONTROL STRING 
Ao 7? $ CHECK2: 
53 50 «oD 7 CMPL =e RO, RB :STATUS AS DESIRED? 
9 13 OBAS 728 BEQL 108 ‘BRANCH IF YES 
6 DD OBA? 729 PUSHL R6 
56 04 AE DO OBAD 730 MOVL 4 (SP),R6 :ADDRESS OF ERROR 
D «731 $FAO_S (R1),MSGLEN MSGBUFD, R6,RO,R3,R4,R5,- 
AD 7? é RETRANGE, RE fRANGE 
0040 8F D8 7 POPR #*M<R6> 
0092 0 teor , 4 BsBu TYPEMSGBUF 
0000'CF  0008'CF 09 EQ 736 10$: MOVL W*RETRANGE,W*INRANGE :MAKE INPUT RANGE LOOK LIKE CRETVA/D 
4 : OBE 737 DECL = RG 
54 54 09 8 OBE9 738 ASHL 4#9,R4,R4 
00046'CF O000°CF 54 C1 OBED 739 ADDL3 R4.W* INRANGE ,W* INRANGE +4 
00 11 OBF 3 740 BRB RANGE CHK 


| 
AND CHECK THE RETURN RANGE 


Orr —--—4 
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yoe-000" SUBROUTINES TO CALL THE SERVICES Sets 7 8F: 95:98 YRMGTST. SREIMMGLKWULW.MARS 1 . (98) 
43 RANGECHK: 
73 0010'CF g3 j 44 BBC #CTLSY _RNGCHK,W*CTLFLG,408 ;BRANCH IF RANGE CHECK IS DISABLED 
79 4 BLEC =O sé SIF ERROR IN SERVICE, SKIP THE RANGE 
50 99 "CF : 46 MOV W*{NRANGE,RO :RO = STARVA, R1 = ENDVA 
4 CMPL = RO, R1 [WHICH DIRECTION? 
A 48 BGTRU $ ‘BRANCH IF BACKWARDS 
‘ 1F 4 BLSSU ‘BRANCH IF FORWARDS 
0c 50 1& €0 BBS #30,R0,10$ SFOR EQUAL, PO SPACE FORWARDS, P1 BA 
£3¢ 3 REQUESTED RANGE IS FORWARDS 
50 OFF Fo OAA f 4 Ss; BICW « #*XIFFLR ;FROM BYTE 0 OF STARTVA 
1 OF BF AB BISW #*XIFF-R S THROUGH LAST BYTE OF ENDVA 
A 11 4 § BRB 20$ 3 
£38 ; GOING BACKWARDS IN VIRTUAL ADDRESS SPACE 
50 OFF BF AB 760 10$:  BISW #*XIFF,RO ;LAST BYTE OF STARTVA 
51 1FF AA 761 BICW #*X1FF.~RI : THROUGH FIRST BYTE OF ENDVA 
0008' CF D1 168 20$: CMPL RO, W*RETRANGE ‘IS THIS WHAT WAS RETURNED? 
12 76 BNEQ 30$ ‘BRANCH IF NOT, ERROR 
oooc'cr 51 01 764 CMPL R1,W°RETRANGE+4 STHIS ONE OK 100? 
13 765 BEaL 40% ‘BRANCH IF YES, RANGE OK 
DD 766 30$:  PUSHL R [SAVE REGISTER 
53 04 AE 00 767 MOVL  4(SP),R3 :TO USE FOR ERROR PC 
768 SFAO_S <W*RANGERR>,MSGLEN,MSGBUFD,R3,- :FORMAT THE ERROR MESSAGE 
769 INRANGE , INRANGE +4, RE TRANGE .RE TRANGE +4 
08 BA 770 POPR #*M<R3> ;RESTORE SAVE REGISTER 
0001 30 771 BSBW § _TYPEMSGBUF [OUTPUT THE ERROR MESSAGE 
05 772 40$:  RSB SAND RETURN 
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KWSET/SULWSET SYSTEM SERVICE 16-SEP-19 AX/VMS v04-00 Page 27 
SSE BROUT INES Breer tabe BT sab8s LANG eT. eae sameccutcu.mans1 2% (25) 
a .SBTTL MISCELLANEOUS SUBROUTINES 
i: : TYPE A yhESSAGE 
77: MSGBUF IS THE ADDRESS OF THE BEGINNING OF THE STRING 
228 : MSGLEN tay Thing THE SIZE (IN BYTES) OF THE STRING 
780 tYPEMSGBUF : 
7 MOVL § W*°MSGLEN,R :S1ZE TO RO 
7 MOVAL WenSGBUE R TADDRESS TO R1 
7 BBC #CTLSV_PIDMSG,W°CTLFLG,5$ :BRANCH IF NO PROCESS ID REQUIRED 
784 MOVAL W*MSGBOFID,R ADDRESS INCLUDING PI 
, 5 = ADDL § $*#<MSGBUF -MSGBUF ID>,RO s INCLUDE EXTRA BYTES IN COUNT 
7 $ , MOVL  R1,W*RAB+RABSL_RBF :SET BUFFER ADDRESS 
788 MOVW = RO ;W*RAB+RABSW_RSZ SAND SIZE 
789 $PUT  W*RAB ‘OUTPUT THE MESSAGE 
790 BLBC RO. 20$ 
791 RSB 
198 20$: $EXIT_S RO sEXIT WITH ERROR STATUS 
794 .END = START 
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CTL$V 

CTLFL 
DELTVAERRADR 
EXPREGSUBR 
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SECSM_WRT s $ 
SF = 
SS$_ACCVI = 
SeS_CREATED s 
SS$_EXQUOTA = df 
$$$_ ot kar TFUL = 9 
SS$_NOPRI = bee 
SS$_NORMAL = 1 
SS$_PA v10 = 66 
SS$_VASFULL = 
SS$_WASCLR = 1 
SS$_WASSET = 8 9 
START CR 83 
SYSSCONNECT eereeene GX 
SYSSCRETVA eeeeeeee 6X 
SYSSCRMPSC eeeeenee GX 
SYSSDELTVA eenereee GX 
SYSSDGBLSC eeneeene GX 3 
SYSSEXIT eeeeeeee GX 3 
SYSSEXPREG eteeenee GX 3 
Y A eeeeeeee x 3 
SYSSLKWSET aeneeeee § GX 3 
SYSSOPEN keeneeee GX 3 
SYSSPUT eeeeeeer GX 03 
SYSSRESUME eeererer GX 03 
SYSSULWSET eeeeeeee GX 03 
TYPEMSGBUF So R 03 
TER OOOO3SF4 R 03 
ULWSE TERRADR 464 9 R 03 
ULWSETERRSIZ = 0000006 
ULWSE TSUBR 00000B1D R 03 
feee ns wee cme we eae + 
! Psect synopsis ! 
¢ewweeeecoceeeoos} 
PSECT name Allocation PSECT No. Attributes 
‘ . sist 444 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS$ 000000 ( ee G1 -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC eyre 
DATAO .Q000017A ( 378.) 02 ¢ ¢°} NOPIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC PAGE 
CODE OOOOOCAB ( 334 -»> 03 ¢ 3.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC PAGE 
Senecesereneuvensseneseest 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 17 :00:00.07 700.41 
Command processing 4 :00:00.83 : 3°98 
Pass 375 213.91 743. g 
Symbol table sort :00:01. 8 BY 
Pass 19 7:00:03. 711.14 
Symbo table output 1 :00:00. 700.14 
Psect synopsis output 700: 8 : “63 
Cross-reference output :00:00. :00.00 
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VAX-11 Macro Run Statistics -SEP-1984 8: MMGTST.S SAMGLKWULW. MAR; 1 (16) 


Assembler run totals 697 00:00:19.87 00:01:04.90 


: working set Limit was 1500 pages. 

89826 bytes (176 pages) of virtual memory were used to buffer the intermediate code. 

there were 50 pages of symbol geste, space allocated to hold 889 non-local ane 18 local symbols. 
source Lines were read in Pass 1, producing object records in Pass 

50 pages of virtual memory were at to define 42 macros. 


geen meee oae were eeeoee 


-+ 
! Macro Library statistics ; 


» ane oth Semen ew wesw nen nee 


Macro Library name Macros defined 
“$522 S0UAgS SF -OBJILIB Sot 1 0 
55$0UA28: CSYSLIBIJSTARLET.MLB; 2 30 
TOvAce (all Libraries) 30 


1168 GETS were required to define 30 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:MMGLKWULW/OBJ=OBJ$ :MMGLKWULW MSRC$:MMGLKWULW/UPDATE=(ENHS:MMGLKWULW) +EXECMLS$/LIB 
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